;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
(defun c:fixsubs ()
  (PRINC "\n")
  (foreach n '("01 General" "Details" "pwm-1" "pwm-2" "pwm-3" "pwm-4" "pwm-5" "pwm-6" "pwm-7" "pwm-8" "pwm-9" "pwm-10" "pwm-11" "pwm-12" "pwm-13" "pwm-14" "pwm-15" "pwm-16" "pwm-17" "pwm-18" "pwm-19" "pwm-20" "pwm-21" "pwm-22" "pwm-23" "pwm-24" "pwm-25" "pwm-26" "pwm-27" "pwm-28")
    (setq zip_lst (dos_dir (strcat "H:\\MC0405\\800-Drawings\\810 Design Drawings\\" n "\\*.bak")))
    (PRINC "\010\010\010\010\010\010\010")
    (PRINC (STRCASE n))
    (PRINC)
    (foreach o zip_lst
      (IF
        (dos_delete (strcat "H:\\MC0405\\800-Drawings\\810 Design Drawings\\" n "\\" o))
        (PROGN
          (PRINC (strcat "\nH:\\MC0405\\800-Drawings\\810 Design Drawings\\" n "\\" o))
          (PRINC)
        )
        (PROGN
          (PRINC (strcat "\nH:\\MC0405\\800-Drawings\\810 Design Drawings\\" n "\\" o " NOT DELETED! "))
          (PRINC)
        )
      )
    )
  )
  (princ)
)